home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_s6030.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  43 lines
  1. 5 ONERRORGOTO1000
  2. 10 MODE8:DIM:ERASEa,a$:DIMa(5),a$(1):a$(1)="Input":a$(0)="Delete":c$=CHR$(5):sf=0
  3. 20 CLS:PRINT"Input data (";s$;")";TAB(0);">Input,Delete,Clear,List,End ?";
  4. 30 a=ASC(INPUT$(1)):IFa>96 THENa=a-32
  5. 40 ONa-66 GOTO300,100,200,,,,100,,,500
  6. 50 GOTO30
  7. 100 CLS:PRINTa$(SGN(a-68));" data (";s$;")";TAB(21);"[EXE]:menu";:z=SGN(a-69)
  8. 110 LOCATE0,1:PRINTc$;s$;"?";
  9. 120 LOCATELEN(s$)+1,1:INPUT@12;z$:LOCATE0,0:IFz$="" THEN20 ELSEy=VALF(z$)
  10. 150 r=sz+z:s=sc+y*z:u=se+y*y*z
  11. 160 sz=r:sc=s:se=u:GOTO110
  12. 200 c=6
  13. 210 sh=sc/sz
  14. 220 sn=se-sh*sc:IFsn<0 THENsn=0
  15. 250 sj=SQR(sn/sz)
  16. 260 sl=SQR(sn/(sz-1))
  17. 280 RETURN
  18. 300 PRINTc$;"clear data  (Y/N) ?";
  19. 310 a$=INPUT$(1,@):IFa$<>"Y" ANDa$<>"y" THEN20
  20. 320 sz=0:sc=0:se=0:GOTO20
  21. 500 CLS:GOSUB200:GOSUB580:i=1:GOSUB600:i=2
  22. 510 GOSUB600
  23. 520 z=ASC(INPUT$(1,@)):IFz=28 ORz=29 THEN20
  24. 530 IFz<>13 ANDz<>30 ANDz<>31 THEN520
  25. 540 IF(z=30 ANDi=1) OR(z=31 ANDi=c) THEN520
  26. 550 IFz=30 THENi=i-2
  27. 560 i=i+1:IFi=<c THEN510 ELSE20
  28. 580 DEFCHR$(255)="0808003E00"
  29. 590 a(0)=sz:a(1)=sc:a(2)=se:a(3)=sh:a(4)=sj:a(5)=sl:RETURN
  30. 600 RESTORE(600+i*10):READa$,b$:PRINTTAB(0);a$;TAB(7);":";b$;TAB(13);"=";a(i-1);:RETURN
  31. 610 DATACNT,n
  32. 620 DATASUMX,äx
  33. 630 DATASUMX2,äxý
  34. 640 DATAMEANX,äx/n
  35. 650 DATASDXN,xån
  36. 660 DATASDX,xånï
  37. 1000 IFERR=1 THENCLS:ONERRORGOTO0
  38. 1010 IFERL=120 THENRESUME120
  39. 1050 IFERL=210 THENc=3:RESUME280
  40. 1060 IFERL=260 THENc=5:RESUME280
  41. 1080 IFERL=150 THENLOCATE0,1:PRINTc$;"data over";:z$=INPUT$(1,@):RESUME20
  42. 1090 LOCATE0,1:PRINTc$;"not found";:a$=INPUT$(1,@):RESUME20
  43.